let compare a b = 
  if a>b then 1
  else if a==b then 0
  else -1;;

let rec find  nom l = match l with
    [] -> failwith "Liste vide"
  |[(e,f);l1] -> if String.lowercase e == String.lowercase nom then f
    else find nom l;;
